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SEQ 0002 


;THIS PROGRAM IS BASED ON ONE WRITTEN By STOR HERNANDEZ. 


sNOTE: 
; VERSION 1. 
; DOCUMENTATION. 


sREGISTER USAGE: 


RS 


THE FILE I70 Ali. WORKS CORRECTLY, THOUGH IT IS COMMENTED OUT FOR 
ANY LINE BEGINNING WITH “;VER2” SHOULD BE UNCOMMENTED. SEE 


RW 


TEMPORARY, [70 STRING POINTER 
TEMPORARY, USED SY [70 ROUTINES TO PASS CHARACTERS 
TEMPORARY, USED TO PASS ARGUMENTS BETWEEN FUNCTIONS 
LESS TEMPORARY - LOW LEVEL ROUTINES SHOULD NOT USE THIS 
STATUS WORD CIF NEEDED LATER, THIS CAN BE PUT IN MEMORY ) 
BITO: CALLED FROM CHAIN FILE 
BIT1: SYSTEM HAS NO PRINTER 
BITe: SET - 2k ROM, CLEAR - 8K ROM 
BIT?: DELETE KEY WAS STRUCK 
BIT15: XOFF HAS BEEN SENT 
OUTPUT DEVICE BUFFER ADDRESS 


D | 
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SEQ 000% 

oA -TITLE EAROM BLASTER UTILITY 
a? ;.OSABL GBL 
"oO -NLIST CND,TOC,BEX,.ME.MD 
"1 ;.ENABL ABS, AMA,LC 
f- .SBTTL UTILITY REVISION HISTORY 
*. 
"4 
"® see 
ii $ 
"2 ; 
- ; REVISION DATE AUTHOR 
BY) ° 
81 $ 0.0 JAN 84 NESTOR HERNANDEZ 
: ; 
az ; 
84 ; 
io ; REVISION HLSTORY: 

; 
H ; REVISION CHANGE 

: 
a9 ; 1.0 INITIAL RELEASE VERSION. 
90 5 REWRITTEN ALMOST COMPLETELY BY 
os : RUSSELL YOUNG FOR APRIL RELEASE. 
e ; 
95 i 5 
94 
95 
96 


97 -LIST MO 


EAROM BLASTER UTILITY 
PROGRAM DEFINED MACROS 


oo 02 b= os = ee oe ee 
Ply op be es pe pe pe oe oe 
6@wYVbutve 


ent ee ee 
ff 
ferO 


MACRO M1200 
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-SBTTL PROGRAM DEFINED MACROS 


JUMP AND RE 

MACRO JRS ADDRESS 
ADDRESS 

. ENDM 


sALIGN TO BYTE 2 OF AN 8 WORD BLOCK 
;sUSED TO EASE ERROR RECOVERY ON INPUT PARAMETERS 


-MACRO ALIGN2 
Rio NE - <<, -BEGIN>E6>-2 
AL IGN2 


. ENDM 


;TYPE A MESSAGE 
-MACRO .TYPMSG ARG 


.NARG ARGS 

IF NE ARGS 
MOV ARG ,RO 

.ENDC 

JSR PC, TYPMSG 

.ENDM 


SEQ 0004 


F 1 
EAROM BL ASTER UTILITY MACRO M1200 10 APR-84 10:39 PAGE 7 
PROGRAM DEF INED MACROS 


2s -NLIST ME.MD 
oo -LIST MC 


SEQ 0005 


G1 
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SEQ 0006 


128 -SBTTL INITIALIZATION CODE 
129 
150 
131 see 
132 $ 
7.74 ; INITIALIZATION ROUTINE 
“ ; 
= ; ROUTINE TO: 
$ 
137 ; SETUP THE ORVCOM AND OTHER TRAP VECTORS 
i138 ; SETUP THE DISPLAY &€ SOFWARE SWITCH REGISTERS 
139 ; SETUP I/0 BUFFER 
140 ; SIZE SYSTEM MEMORY 
141 ; INITIALIZE PROGRAM STACK 
142 ; SAVE MONITOR STACK POINTER 
145 ; CLEAR THE EAROM IMAGE STORAGE AREA 
144 ; DETERMINE EAROM SIZE AND LAST ADDRESS 
145 ; SEARCH FOR THE ADDRESS OF UFD HEADER 
7%; ; SEARCH FOR UFD EXPANSION LIMIT 
; 
148 g-- 
149 sPROGRAM SHOULD BE LINKED SO BEGIN FALLS AT ADDRESS 200 SO 200G WILL 
150 ; DO A RESTART. MORE IMPORTANTLY, BEGIN -->MUST<-- FALL ON AN 8 BYTE 
151 ; BOUNDRY OR THE PROGRAM WILL NOT WORK. REFER TO THE COMMENTS AROUND 
£3 ; UPDRAM AND THE MACRO ALIGN2. 
154 000000 BEGIN: ; BEGININIT 
155 ; -WORD O 
156 000000 005767 003340 TST INISTK ;REENTRY ? 
157 000004 001403 8EQ S$ ;NO - PROCEED 
158 000006 016706 003332 MOV INISTK,SP ;YES - RESTORE STACK, SKIP INITIALIZATION 
‘ze 000012 000410 AR 7$ 
161 000014 010667 003324 S$: MOV SP, INISTK ;SET UP FOR A 200G TO RESTART 
162 000020 012737 000200 000024 MOV $200 , 8024 3;SET UP FOR APT 
oe 000026 012737 003370' 000044 MOV OAPTING ,@¢44 ;DUMMY INFORMATION FOR APT 
165 000034 012704 000001 7$; MOV @BITO,R4 ;sREENTER HERE ON tC OR 200G 
166 000040 013746 000042 MOV @e42, -(SP) 
167 000044 001004 BNE 10$ 
168 000046 012604 MOV (SP)+,R4 sF IX STACK, CLEAR STATUS 
169 000050 023716 000046 CMP 046 ,( SP) $ 
‘7 000054 001540 BEQ OUTS 
172 000056 013746 000034 10$: MOV a¢54,-(SP) sSAVE MONITER TRAPS AND USE MY OWN ROUTINE 
175 ; VER] MOV &TRPHAN,2034 :CIS THIS NEEDED?) 
174 000062 013746 177520 MOV aoBCSR, -( SP) ; SAVE OLD BCSR VALUE 
175 000066 042737 000100 177520 BIC #BIT6,ae@BCSR sENABLE BOOT ROM 
‘sy 000074 052737 000040 177520 BIS “BITS,aeBCSR 
178 000102 012737 000102 000100 MOV #102 ,80100 ; : SET UP LINE TIME CLOCK VECTOR AT low 
fe 000110 012737 9oQ00002 000102 MOV %2,80@102 ; : RETURN FROM INTERRUPT 
181 000116 012703 000006 MOV 06 ,R3 
182 000122 011346 MOV CR35), (SP) 
183 000124 O1387138 177776 MOV @¢177776,(R3) ;DON‘ | LOSE CORRECT SPACE 


184 0001380 014346 MOV CR3),-CSP) 


| 
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SEG 90007 

INITIALIZATION CODE 

185 000132 012713 000152’ MOV #303 ,(R3) ;SIZE MEMOR:r TO FIND WHERE MONITOR IS 

186 000136 CLR RO 

187 000140 062700 020000 20%: ADD £20000 ,RO 7 

188 000144 001405 BEQ 40$ 

189 000146 005710 TST (RO) 

190 000150 000773 BR 20% 

191 000152 022626 30$: CMP (SP)+.(SP)- ;GET HERE THROUGH BUS TIME OUT - FIX STACK 

192 000154 062700 0209000 ADD #20000 ,RO sEXTRA 20000 ADDED HERE TOO 

193 000160 162700 030000 40%: SUB £30000 ,RO ; COMPENSATE FOR EXTRA ADD IN EITHER CASE 

‘os 000164 010067 007156 MOV RO ,MONADR 

196 000170 012713 000202’ MOV #50$,CR3) 

197 000174 005737 000000 TST @ePRTCSR 

198 000200 000405 BR 60$ 

199 000202 022626 50$: CMP (SP)+,(SP)-+ ;IF WERE, NO PRINTER ON BUS, SO USE CRT 

200 000204 052704 000002 BIS oBIT1,R4 

201 000210 60$: .TYPMSG @$HELLO ; : PRINT UTILITY IDENTIFICATION 

202 000220 004767 005014 JSR PC ,REAROM ; EAROM DATA INTO SYSTEM MEMORY 

203 000224 012623 MOV (SP)+,CR3)> ;sRESTORE TRAP 4 

204 000226 0126153 MOV (SP )+,CR3) 

205 000250 103411 BCS 110$ sROM NONEXISTANT, PRINT ERROR AND EXIT 

206 000232 012702 000410’ MOV @MAINM,R2 ;LOAD TABLE AND FALL INTO MENU 

207 000236 004767 000024 JSR PC ,MENU 

208 000242 012637 177520 100$: MOV (SP )+,a@0BCSR ;sRESTORE OLD BCSR VALUE 

209 000246 012637 000034 MOV (SP )+,a%34 sRESTORE MONITER TRAP HANDLER 

230 000252 000207 RTS PC 


éi2 000254 110$; .TYPMSG #NOROM 
sts 000264 000766 BR 100$ sRETURN TO MONITOR 


EAROM BLASTER UTILITY 
INITIALIZATION CODE 


012746 
012700 


MACRO M1200 


012707" 
002140 


003016 


000270’ 
012414’ 
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_ 


;MENU - GIVEN A STRUCTURE POINTER IN R2, WILL PRINT THE MENU, READ THE 


; CHOICE, AND PERFORM 
MENU: 


PAINT: 


10$;: 


20: 


ERROR1: 


ERROR 


MOV Re, -( SP) 
MOV (SP),R3 
.TYPMSG (R3)-+ 

MOV OPROMPT ,RO 
JSR at GETCOM 
MOV (R3)+, R1 
DEC RO 

BLT 20% 

BGT ERROR1 

TST C(R3)> 

TSTB (R1) 

BEQ 20$ 

CMPB (R1)+, INSTR 
BNE 10$ 

CLR R1 

JSR PC,@CR3)-> 
BR PAINT 

MOV @PAINT, -(SP) 
MOV #ILLCOM,RO 
JRS GE TCOM 


IT. IT USES RO AND R3 


;sRELOAD MENU POINTER 
;PRINT THE MENU 


;GET THE COMMAND 

;R1 NOW HOLDS LEGAL COMMAND POINTERS 
;sRO IS THE NUMBER OF CHARACTERS 
;DEFAULT RETURN 

sMORE THAN 1 CHARACTER IS ILLEGAL 

; INCREMENT FUNCTION POINTER 

;CHECK IF DONE 


;CHECK NEXT POSSIBLE CHOICE 


;SET UP FOR HELP REQUEST 
:;00 FUNCTION 
sREDRAW SCREEN 


;SET UP FOR RTS 
;ILLEGAL COMMAND - PRINT ERROR, REDRAW MENU 
;GET <CR> BEFORE PAINTING MENU 


SEQ 0008 


EAROM BLASTER UTILITY 


INITIAL LZATION CODE 


’ 000356 


000356 


000360 
00C 364 


000 366 
000376 


256 000402 


000406 


000207 


012702 000440’ 
000 740 


012702 000474’ 
000727 


JI 
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;MENU ROUTINES - LOAD MENU STRUCTURE POINTER IN R2 AND GO TO COMMON CODE 


3; VEROM.U: MOV ®UPDP ,R2 : ;UPDATE PERIPHERALS 
3; VER2] JSR PC ,.MENU 
;PERIPHERAL PROCESSING GOES HERE 
REPLOT: ;CONVENIENT RTS FOR JUMPING TO 
OUTS: RTS PC 
M.S: MOV #HARDM ,R2 ;CREATE SYS COM FILE FROM ROM MENU 
BR MENU 
MS.H: .TYPMSG #$MSG4 ;PRINT THE HELP MESSAGE 
JRS RETCOM 
M.H: MOV @HELPM,Ro sHELP MENU 
BR MENU 


SEQ 0009 


<1 
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261 ;MENU STRUCTURES: 


SEQ 0010 


262 ; WORD 0: ADDRESS OF ASCII STRING OF MENU 
2653 : WORD 1: ADDRESS OF LEGAL CHARACTER COMMANDS 
264 ; WORD 2: ADDRESS OF DEFAULT FUNCTION 
265 ; WORD 3-N: FUNCTION ADDRESSES IN ORDER 
ass ; BYTE *: NULL TRAILED LEGAL CHARACTORS 
268 ;MAIN MENU 
269 000410 003404’ MAINM: .WORD $MENU s;ASCII STRING FOR MAIN MENU 
270 000412 000432 “WORD M.CHRS ;ADDRESS OF LEGAL COMMANDS 
271 ; FUNCTIONS 
272 000414 000646’ .WORD M.E sDEFAULT - EXIT 
27s ;VER2 .WORD M.F sCREATE SYS CONFIG FILE FROM ROM 
274 ;VER2 .WORD M.C ;COPY TO ROM FROM SYS CONFIG FILE 
275 ;VER2 .WORD M.U sUPDATE SYS MEMORIES, PERTPHERALS 
276 000416 000360’ .WORD M.S ;UPDATE SYS HARDWARE 
277 20 .WORD 4.0 ;PRINT SYSTEM DESCRIPTION 
278 000422 000356’ .WORD REPLOT sREDISPLAY MENU 
279 000424 000402: .WORD M.H ;HELP 
280 000426 000646’ .WORD M.E sEXIT 
281 000430 000346’ “WORD ERROR :NO MATCH 
282 ;VER2 M.CHRS: .ASCIZ /FCUSDRHE/ 
283 000432 123 104 122 M.CHRS: .ASCIZ /SORHE/ 
284 .EVEN 
285 
Be, ;UPDATE HARDWARE MENU 
287 000440 004001’ : ,WORD $HMENU 
288 000442 000464’ .WORD MS.CHR 
289 000444 002762' 000666' 000666: .WORD EXIT.MS.C.MS.U.MS.8,.MS.S,MS.H,EXIT,ERRC 
290 000464 103 125 102 MS.CHR: .ASCIZ /CUBSHR/ 
a4 EVEN 
293 000474 004562’ HELPM: .WORD ‘sHELP 
294 000476 000512’ .WORD MH.CHR 
295 ;VER2 .WORD EXIT,HMSG1.HMSG2,HMSG3,HMSG4,HMSGS,HMSG6,ERROR 
296 ;VER2 MH.CHR: .ASCIZ /FCUSDE/ 
297 000500 002762' 000614' 000620’ WORD  EXIT.HMSG4.HMSGS,HMSG6, ERROR 
298 000512 123 104 105 MH.CHR: .ASCIZ /SDE/ 
ae EVEN 
301 ; VER2UPOP : .WORD $sMORP ;UPDATE MEMORY OR PERIPHERALS 
302 ;VER2 .WORD MU.CHR 
303 ;VER2 .WORD EXIT, YUP NOPE . ERROR 
304 ; VERQMU. CHR: ASCIZ 
305 .EVEN 
306 
30? ; VERQSUREMU: .WORD $SURE ; “ARE YOU SURE?” 
308 ;VER2 .WORD YN 
309 ;sVER2 .WORD NOPE, YUP,NOPE,ERROR 
sit ;VER2 ;USES SAME CHARACTERS AS YORN 
312 000516 012333' YORN: .WORD $TYASK sPRINT ON HARD COPY? 
313 000520 000532’ .WORD YN 
314 000522 002762' 002762’ 002770° .WORD YUP, YUP,NOPE,ERROR 
315 000532 131 116 000 am .ASCIZ /YN/ 
i EV 


Li 
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518 000536 004526’ EMENU: .WORD SEMENU 

519 000540 000554’ -WORD RWE | 

£20 000542 002770’ 002776’ 003170° -WORD NOPE ,WRTROM,LEAVE ,NOPE ,ERROR 

£21 000554 127 105 122 RWE: -ASCIZ /WER/ 
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000700 ' 


012035' 
001602 


0005 36" 


3 FUNCTIONS 
3 ~---<---—--—---« 
; FROM MAIN MENU 
; VEROM.F: MOV SDUMP , -C SP) ;LOAD FILE TO XXDP MEDIUM FROM ROM 
;VER2 MOV OWRITE, -CSP) 
;VERS OBR FILCOM 
; VEROM.C: MOV #LOAD, -(SP) ;WRITE ROM FROM XXDP MEDIUM 
;VER2 #£=MOV READ, -( SP) 
;VERO #£«OR FILCOM 
; VER?) 
; VEROM.FERR: .TYPMSG #BADFIL 
; VEROF ILCOM: ;COMMON READ/WRITE CODE 
;VER2 MOV #GETFIL,RO 
; VER2 JSR PC ,GETCOM 
;VER2 #£BEQ 98$ sEXIT ON DEFAULT 
; VERO JSR PC, CHKFIL sRETURN CS IF FAIL 
;VER2 #£«BCS M.FERR 
; VER2 
;VER2 .TYPMSG (SP)-+ ;"READ” OR “WRITE” 
; VER2 .TYPMSG #@INSTR ;sFILE NAME 
;VER2 MOV @SUREMYU ,R2 ;sASK “ARE YOU SURE?” 
: VER2 JSR — 
;VER2 #£bCS 99% ;NO, FIX STACK FOR RETURN 
;VER2 MOV (SP),RO ;sRECOVER FUNCTION (DON'T POP) 
;VER2 #£=MOV R4,(SP) ; THE ONLY REALLY —= REGISTER 
;VER2 JSR PC,CRO) ;D0 THE — OR WRITE 
; VER? MOV (SP)+,R4 ;NOW DO T POP 
; VER2 . TYPMSG ;LOAD AND Sue RETURN STRINGS TO PRINT IN RO 
; VER2 JSR one RE TCOM 
; VER2 BR 
; VER2 
; VER298$ ; TST (SP )>+ 
; VER299$: TST (SP )> 
; VER2100$ : RTS PC 
M.D: MOV #MSTAB RS 
10$: MOV (R5)+,Re 
BEG 100$ 
JSR PC ,DESCRP 
BR 10$ 
100$; RTS PC 
;MAIN MENU HELP FUNCTION 
1: ADD #$MSG1-$MSG2,R1 ;LOAD R1 WITH ADDRESS OF HELP MESSAGE 
HMSG2: ADD #$MSG2 -$MSG3,R1 ; TO PRINT 
HMSG3 ADD #$MSG3 -$MSG4,R1 
HMSG4 ADD @$MSG4 -$MSG5,R1 
HMSGS ADD #$MSG5 - $MSG6,R1 
HMSG6 ADD #$MSG6 ,R1 
. TYPMSG R1 
10$: JSR PC ,RETCOM ;sTYP <RET> TO RETURN 
BNE 10$ ;IF ANY OTHER CHAR, TYPED TRY AGAIN 
RTS PC 
M.E: MOV SE MENU, RO 


SEQ OOle 
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SEG 001% 


581 000652 004767 177410 JSR PC .MENU 

582 000656 105402 BcS 100$ : 

363 000660 000167 002076 JMP EXIT sRETURN TO EXIT PROGRAM 

+ 000664 000207 100$: RTS PC ;IF R RETURN TO MENU 

386 000666 MS.C: 

387 000666 MS.U: 

388 000666 MS .B: 

589 000666 0627035 000250 MS.S: ADD MS TAB -HARDM-10,R3 ;BUILD OFFSET INTO DESCRIPTOR TABLE 
590 000672 011502 MOV (R3),R2 

$4 0006 74 JRS UPDRAM 


593 000700 000742’ 001072’ 001132’ MSTAB: .WORD CPUDT,UBADT,BOTDT.SWIDT,O 


EAROM BLASTER UTILITY 
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s INPUT AND OUTPUT MAPPING ROUTINES FOR DISPLAYING AND MODIFYING DATA 
— ek ROUTINES 


OUTMAP ; 





OTYP1O 


ITYPO 
ITyP2 
ITye4 
ITyP6 


ITxP10 


;TYPE O - BIT INFORMATION, 0 <= N <* ? 
s;TYPE 2 - PRINT DECIMAL NUMBER IN R3 
sTYPE 4 - 8 BIT OCTAL 

sTYPE 6 - 16 BIT OCTAL 

:TYPE 10 - GET TWO ASCII CHARACTERS 


T MAPPING ROUTINES 


sTYPE O - BIT INFORMATION, O <* N <®# 7? 
sTYPE 2 - PRINT DECIMAL NUMBER IN R35 
sTYPE 4 - 8 BIT OCTAL 

sTYPE 6 - 16 BIT OCTAL 

sPRINT TWO ASCII CHARACTERS 


;THESE ARE THE DESCRIPTOR TABLES. THE FORMAT IS AS FOLLOWS: 


;IT CONSISTS 


R INFORMATION AND 8 BYTES FIELD DESCRIPTORS, THE 


OF HEADE 
; FIELD DESCRIPTORS DIFFER DEPENDING ON THE TYPE OF INFORMATION THEY 
; ACCESS, BUT THEY MUST BE 8 BYTES LONG. 


ee @ Ge ee G+ oe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gt Ge Ge Ge Ge Ge 


NUMBER OF LINES IN TABLE 
WIOTH OF TABLE HEADER 
ASCIZ TABLE NAME 

HEADER ASCII STRING 


PROMPT FOR INPUT OF FOLLOWING FIELD 
IN UPDATE OF BYTE 


ADORE SS 
THE SE LAST FOUR BYTES VARY DEPENDING ON THE FIELD TYPE 


TYPE O - BIT FIELDS 

O (DATA TYPE OFFSET INTO I/O FUNCTION TABLES) 
MASK THE INTERESTING BITS 

BITS TO SHIFT TO REACH THE MASK 


UNUSED 

TYPE 2 - DECIMAL INPUT 

2 (DATA TYPE OFFSET poh I/O FUNCTION TABLES) 

NUMBER OF BYTES TO PRIN 

MAXIMUM VALUE 

LENGTH PER ENTRY 

TYPE 4 - INPUT OCTAL BYTE 

4 (DATA TYPE OFFSET INTO I/0 FUNCTION TABLES) 

2 — OF BITS TO ROTATE IN TO FIRST DIGIT) 


TYPE 6 - INPUT OCTAL WORD 

6 (DATA TYPE OFFSET INTO I/O FUNCTION TABLES) 
1 (NUMBER OF BITS TO ROTATE IN TO FIRST DIGIT) 
UNUSED 

UNUSED 

TYPE 10 - INPUT ASCII STRING 

10 (DATA TYPE OFFSET INTO L/0 FUNCTION TABLES) 
MAXIMUM NUMBER OF CHARS 

UNUSED 

UNUSED 


3SE 7 ON RIGHT BOUNORY 


SEQ 0014 
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060 


010 


002 


020 


040 


014 


026 


100 


004 


005 


002 


G06 


CPUDT: 


UBADT: 


ie) 
~ 
“~ 
m 









a5 58 








peters 
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1,71. 
CPUTIT 


CPUDES ;TEXT LENGTH, HEADING 


CPUPO 
UPDATE +O 
0,61T6,6 


CPUP 1 
UPDATE +1 
O,BIT7!6IT6.6 


CPUP2 
UPDATE +1 
O,BITS'BIT4,4 


CPUP3 
UPDATE +1 
0O,BIT2:BITLIBITO,O 


CPUP4 
UPDATE +1 
0,BIT3,5 


CPuUPS 
UPDATE +0 
O,B6IT1.1 


CPUP6 
UPDATE +O 
O,BIT4,4 


CPUP 7 
UPDATE +O 
0,.B1T5,5 


CPuPs 
UPDATE +O 
0,BITS!6IT2.,2 


CPUP9 
UPDATE +3 
0,61T0,0 


0 


lee. 
UBATIT ; TABLE HEADER 


BADE S 


UBAPO sUNTIBUS CACHE 


UPDATE +2 
0,B116,6 


UBAP 1 318 BLT MODE 


UPDATE +2 


; IGNORE BATTERY STATUS 


;POWER UP MODE 


sREBOOT MODE 


sMASTER BUS GRANT 


sHALT/TRAP OPTION 


sHALT ON BREAK 


sL INE CLOCK STATUS 


sLINE CLOCK INTERRUPT 


sL INE CLOCK SOURCE 


sMAIN MEMORY TEST 


SEG OO1*% 


EAROM BL ASTER UTIL LT 
INITIAL 1. \TION CODE 
S09 001114 


001142 
001144 


001150 


000 
0062 72' 
000004G 
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002 


045 


002 


002 


002 


001 


024 


002 


002 


005 


O11 


000 


BOTOT: 


SWIOT: 
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0,B1T5S,5 


UBAP2 


UPDATE +4 
0,BIT1,1 


0 

9.,357. 
BOTTIT 
BOTDES 


BOTPO 


0 
2.4,11,6 


BOTP1 


UPDATE +36 
10,2,0,0 


BOTPe 
UPDATE +40 


4,2,0,0 
BOTPS 


UPDATE «41 


BOTP4 
UPDATE +42 


6,1,0,0 
6 

6,20. 
SWITIT 
SWIDES 
SWIPO 

0 
2.2.6,3 
BOTP1 


De 


UPDATE +124 


10,2,0,0 


BOTPS 


UPDATE +126 


4.2,9,0 
3 


sUNIBUS MEMORY TEST 


;END OF TABLE 


;D00N’'T CARE ABOUT ADDRESS FOR TYPE 2 


;DEVICE MNEMONIC 


sMAKE IT 8 BYTES 


sPHYSICAL UNIT @ 


;LOGICAL UNIT NUMBER 


;CSR 


sEND OF TABLE 


;SWITCH NUMBER TO MODIFY 


sNEW DEVICE MNEMONIC 


;sLOGICAL UNIT NUMBER 


SEQ OO16 


EAROM fi A: 


TER UTILITY 


INITIALIZATION CODE 


010246 


042702 
103351 


000746 


012602 
004767 


000000 


010546 
112205 
112200 
010046 


012701 
011600 


012701 
012767 


as 
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sMAIN ROUTINES TO DISPLAY AND UPDATE A SET OF DATA 


sUPDATE A SET OF DATA 


;FRONT OF THE we ett TABLE IS PASSED IN R2 


UPDRAM : ne 


;sSAVE DESCRIPTOR TABLE POINTER 
sPRINT OUT CURRENT VALUES 
;INIT TO FRONT OF TABLE 


sRESTORE POINTER 
:6 SHOULD BE ADDED THE FIRST TIME - SUB 2 HERE 


;sNEXT ENTRY, OVERLOOK HEADER THE FIRST TIME 
;OUTPUT PROMPT FOR INPUT 
sCHECK FOR END 

sEQUAL SIGNALS END 

:;GET COMMAND 

;TEST FOR DEFAULT 

;SET UP INPUT ADDRESS 

;SET UP IN ITYPe2 

3;D0 THIS TYPE OF INPUT 
sRESTORE R2 TO PREVIOUS ENTRY 
;GO0D RETURN, GET NEXT 

;BAD INPUT 

;TRY IT AGAIN 


sPRINT OUT UPDATED TABLE AND RETURN 


;REPEAT COUNT 


;WIDTH OF HEADER 
sPRINT THE HEADER 


;CLOSING ----S 
s INITIALIZE WITH @1 


000114 SR PC .DESCRP 
000106 CLR WHICH 
MOV (SP),R2 
TST R2) 
000010 10$: ADD #10,R2 
20$: MOV (R2)+,RO 
177740 BIT #177740,RO 
BEQ 100$ 
MOV R2, -(SP) 
001136 JSR PC ,.GETCOM 
MOV (SP)+,R2 
TST RO 
BEQ 30$ 
000044 ADD WHICH, R3 
MOVB (R2)+,R1 
MOV RS, -CSP) 
000724' JSR PC, @INMAP(R1) 
MOV (SP)+,R5 
000007 30$: BIC @7,R2 
BCC 10$ 
.TYPMSG 8ERRIN 
BR 20$ 
100$: MOV (SP)+,R2 
000006 JSR PC ,DESCRP 
URS RE TCOM 
WHICH: .WORD 
sGRINT OUT A DESCRIPTIVE ,MEADING 
:DESCRIPTOR POINTER IN R 
DESCRP: MOV RS, (sP)" 
MOVB (R2)+. RS 
MOVB (R2)+,RO 
TYPMSG (R2)- 
000055 MOV yor" 
: MOV (SP),RO 
001234 10$: JSR PC TTY 
OB RO,10$ 
TYPMSG (R2)- 
000055 MOV '-.R1 
000001 177724 MOV #1, WHICH 
MOV (SP ),RO 
001204 203: JSR PC,TTY 


SOB RO,20$ 
.TYPMSG @CRLF 


sPROCESS THE TABLES 


EAROM BLASTER UTILITY 
INITIALIZATION CODE 


010246 
005046 


000002 
177740 


000712’ 
000007 


177626 


000055 
001076 


30$: 
40$: 


100$: 


1108: 


PC, @OUTMAP(RO ) 
#7,R2 

R2 

40$ 


@VCRLF 
WHICH 


RS, 50$ 


(SP)+,(SP)+ 
(SP)+,RO 


SEQ 0014 


;SAVE FRONT OF DESCRIPTER COUNTER FOR REPEATS 
; INCREMENT TABLE POINTER 

sRESTORE DESCRIPTER POINTER 

;SET UP OFFSET INTO TABLE 

;THIS ENTRY IS EITHER EOT a ASCII PROMPT 
sEOT - FINISH AND TRY NEX 

sPOINT INTO TABLE 


sPOINT TO NEXT ENTRY 
;OFFSET TO NEXT 
sNEXT IN NUMERIC ORDER 


;BUMP OFF TEMP STORAGE 
;PRIN? FINAL LINE 


EAROM BLASTER UTILITY 
INITIALIZATION CODE 


016703 
012701 


012746 
012701 


031601 
001003 
012701 
000402 


012716 
004 


005726 
012701 


000000 
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177400 


000060 
001024 


177520 


000174 
yaa dlbe 


00004 
000766 
001760' 
000017 
000057 


000040 


177777 
000720 


000040 


000001 000012 


Ge 
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;SEPARATE ROUTINES TO HANDLE THE DIFFERENT FORMS THE DATA IS DISPLAYED 
; AND ENTERED IN | 


;PRINT ROUTINES 


;DATA TYPE O - THE OUTPUT WILL BE A SINGLE CHARACTER, O <= X «= 
;THE ADDRESS OF THE DATA IS IN R3, R2 POINTS AT BYTE 2 OF THE DATA DESCRIPTOR 


OTYPO: .TYPMSG @LBL5S ; LEADING 4 BLANKS 
MOVB CR3),R1 
BIC 0177400,R1 ;CLEAR POSSIBLE SIGN BITS 
MOVB CR2)+,RO ;LOAD MASK BITS 
COM RO 
BIC RO,R1 
MOVB (R2)>, RO 
ma — ;SET UP NEGATIVE FOR RIGHT SHIFT 
ASH RO,R1 ;SHIFT BITS TO RIGHT 
ADD #'O,R1 
JSR PC,TTY ;sPRINT THE NUMBER 
TYPMSG @BL4 ; TRAILING BLANKS 
RTS = a 
;OUTPUT A DECIMAL NUMBER 
OTYP2: MOV WHICH,R3 
MOV @’>,R1 sHERE IS A GENERAL OUTPUT DECIMAL FUNCTION 
JSR PC,TTY 
MOV e’ Ri 
JSR PC, TTY 
MOVB CR2),RO sNUMBER OF BYTES TO PRINT @ 2 
ADD @DECTAB,RO sDECIMAL TABLE 
MOV 017,-CSP) s;NO NONZERO DIGITS PRINTED 
10$: MOV #'O-1,R1 sBUILD A DIGIT 
20$: INC Ri 
SUB C(RO),R3 
BGE 20% 
BIT (SP),R1 ; SUPPRESS LEADING OS 
BNE 30$ 
MOV G’ R11 
BR 40$ 
308: MOV #-1,(SP) ;0 FILL INSTEAD OF BLANK 
40$: JSR PC,TTY sPRINT IT 
ADD C(RO),RS sRESTORE EXTRA SUBTRACTION 
TST -€RO) :;GET NEXT LOWER POWER OF 10 
BNE 10$ ;IF NOT DONE, DO NEXT DIGIT 
TST (SP) sL_OSE TEMPORARY VARIABLE 
MOV eo’) 6R1 ; TRAILING BLANK 
JRS TTY 
DECTAB: .WORD 0..1.,10.,100,,1000. 


;OUTPUT 16 BIT OCTAL NUMBER 


SEQ 0019 


EAROM BLASTER UTILITY 
INITIALIZATION CODE 


703 
5 


001772 


04 001774 


001776 
002000 


005300 
111503 


000303 
000406 


005001 
152301 
000301 
151301. 
010103 
000303 


012701 
004767 
012701 
004767 
112201 
010246 


005002 
073201 
010201 
052701 
004767 
012701 
077012 


012602 
012701 


077011 
012700 


MACRO M1000 


000040 


000040 
000526 


013173' 
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OTyYP4: 


OTYP6: 


OCTOUT: 


10$: 


;sPRINT ASCII 


OTYPLO: 


10$: 


208: 


. TYPMSG 


(R2)+,R1 


#3,R1 
RO,10$ 


(SP)+,R2 
o’ 64R1 
TTY 


PC.TTy 
RO,10$ 


¢BL4 ,RO 
TYPMSG 


; INPUT FUNCTIONS 

; THESE FUNCTIONS DO THE INPUT FOR THE DIFFERENT DATA TYPES. THEY ARE ENTERED 

; WITH R3 POINTING TO THE ADDRESS IN UPDATE OF THE LOCATION FOR THE NEW DATA, 
THE INPUT HAS ALREADY BEEN READ IN IN GETCOM, AND RO IS LEFT HOLDING THE 
NUMBER OF CHARACTERS IN THE ASCIZ STRING IN INSTR. R2 POINTS TO BYTE 5S OF THE 
8 BYTE FIELD DESCRIPTER. IF THE INPUT IS SUCCESSFUL THE FUNCTIONS SHOULD 


SEQ 0020 


;NUMBER OF CHARS IN RO 
;NUM IN R3 HIGH BrTE 


sHOW MANY BITS IN FIRST DIGIT? 
;ASHC NEEDS R-EVEN, R-ODD 


;NO STRAY BITS 

;SHIFT HIGH THREE BITS INTO Re 
;sPRINT IT 

sMAKE ASCII 


;SHIFT 3 ON SUBSEQUENT ATTEMPTS 


sRESTORE R2 TO TABLE 


;TWO CHARACTERS 


NOT CORRECT [i RETURNS C SET, AND R2 MUST BE POINTING SOMEWHERE IN THE 
CURRENT DESCRIPTER - THEY ARE 8 BYTE ALIGNED SO A BIC #7,R2 WILL RESTORE 


: 
' 
: 
; RETURN C CLEAR AND R2 POINTING TO THE NEXT DESCRIPTER. IF THE INPUT IS 
‘ 
3 
r 


THE POINTER SO IT CAN BE REUSED. 


; INPUT SINGLE DIGIT OCTAL. 


EAROM BLASTER UTILITY 
INITIALIZATION CODE 


112201 
042701 


le 
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ITyPO: MOVB CR2)+,R1 
177400 BIC #177400,R1 
1 CMP #1,RO 
BCS 100$ 
MOVB CR2),RO 
001162 MOV INSTR,RS 
BEQ 100$ 
000060 SUB ¢°O,R5 
BCS 100$ 
ASH RO,RS 
CMP R1,R5 
BCS 100$ 
BICB R1,CR3) 
BISB RS,CR3) 
100$: RTS PC 
;GET A DECIMAL 
003350’ ITyP2: MOV #INSTR,RO 
CLR RS 
CLR R3 
BEG 98$ 
000060 SUB #’'O,R1 
BcS 100$ 
000011 CMP #11,R1 
BCS 100 
ASL RS 
ASL RS 
ADD R3,R5 
ASL 5 
ADD R1,R5 
MOV RS,R3 
BR 10$ 
98%: INC R2 
CMPB (R2)+,R5 
BCS 100 
000001 CMP RS,#1 
BCS 100% 
MOVB C(R2),RO 
SUB RO,R1 
99%: ADD RO,R1L 
SOB R5,99$ 
177062 MOV R1,WHICH 
CLC 
100$: RTS PC 
; INPUT AN OCTAL BYTE 
000054 ITyP4: JSR PC ,OCTIN 
BCS 100$ 
000377 CMP #377,R5 
BCS 100$ 
MOVB R5,(R3) 
100$: RTS PC 


SEG 0021 


;HOLDS BIT MASK 


;CLEAR POSSIBLE SIGN BITS 


s;HOLOS SHIFT 
;RETURN GOOD ON DEFAULT (C BIT CLEAR FROM CMP) 


;CHECK FOR LEGALITY 


;CLEAR THE BITS 
;SET THE BITS 


NUMBER AND LOAD WHICH WITH THE OFFSET FOR THE DESIRED ENTRY 


;LOAD VALUE IN HERE 
;USE FOR #10 MULTIPLICATION 


;EXAMINE NEXT DIGIT 


sISOLATE BITS, CHECK FOR RANGE 


sMULTIPLY BY 10. 2x 
34x 

35x 

3; 10x 

3 10OX+Y 


sBUMP PAST BYTES TO PRINT 
sCHECK RANGE 


3NO O ALLOWED 


:;BUILD THE OFFSET 
;sR1 IS O 


;LOAD IT 
sNEEDED IF INPUT = 1 


;READ THE NUMBER 
sRETURN IF FAILURE 

; TOO LARGE? 

;YES, RETURN FAILURE 
;LOAD IT IN MEMORY 
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INITIALIZATION CODE 


817 
818 ; INPUT AN OCTAL WORD 
819 002334 004767 000034 ITyP6: JSR PC,OCTIN 
820 002340 103403 BCS . 100$ 
821 002342 110523 MOVB RS,CR3)+ ;SAVE LOW BYTE 
822 002344 000305 SWAB RS 
823 002346 110515 MOVB RS,CR3) ;SAVE HIGH BYTE 
oe 002350 000207 100$: RTS PC 
826 ;ASCII CHARACTERS 
827 0023552 121200 ITYP10: CMPB CR2),RO ;SET C BIT IF GREATER 
628 0023554 103406 BCS 100$ 
829 0023556 012701 003350’ MOV @INSTR,R1 ; INPUT STRING 
830 002362 112200 MOVB CR2)+, RO ;COPY THIS MANY 
831 002364 112125 10$: MOVB (R1)+,(R3)> ;COPY INPUT 
832 002366 001401 BEQ 100$ ;QUIT ON NULL 
833 002370 077003 SOB RO, 10% 
= 002372 000207 100$: RTS PC 
836 002374 005005 OCTIN: CLR RS ;USE RS FOR RESULT 
837 002376 012700 003550’ MOV ¢INSTR,RO sPOINT TO INPUT STRING 
838 002402 112001 10$: MOVB CRO)+,R1 ;GET NEXT CHARACTER 
839 002404 001416 BEQ 100$ ;IF O, DONE 
840 002406 162701 000060 SUB #'O,R1 ;SET C BIT IF LESS THAN ‘O 
841 002412 103415 BCS 100$ ;RETURN FAILURE 
842 002414 022701 000007 CMP #7,R1 ;COMPARE WILL SET C BIT IF DIGIT > 7 
ee 002420 103410 BCS 100$ ;RETURN FAILURE 
845 002422 006305 ASL RS ;sMULTIPLY BY 8 AND ADD IN NEW DIGIT 
846 002424 103406 BCS 100$ ;IF MORE THAN 16 BITS ARE ENTERED, RETURN C SET 
847 002426 006305 ASL RS 
848 0024350 103404 BCS 100$ 
002432 006305 ASL RS 
850 002434 103402 BCS 100$ 
851 002436 050105 BIS R1,R5 ;ADD CURRENT DIGIT 
ons 002440 000760 BR 10$ ;DO0 NEXT 


854 002442 000207 100$: RTS PC ;DONE, C BIT HOLDS SUCCESS CODE 


EAROM BLASTER UTILITY 
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012700 


012702 
012700 
0050 


001016 


120127 
001730 


020127 
001405 


110120 
077255 
012700 
000711 


162700 
000207 


004767 
112001 
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012442’ 
000020 
003350’ 


000200 


000177 
003350’ 


000130 


000126 
000200 


000200 
000074 
000101 


000040 
000060 
000012 


000015 


012642' 


003350’ 


000034 


MAIN TERMINAL I/70 ROUTINES 


;PUT A COMMAND STRING (INTO INBUF, RETURN C SET IF NO CHARACTERS ENTERED 


;USES RO, R1, Re 
;RE TURN 


RETCOM: 
GETCOM: 


10$: 


15$: 


20$: 


30%: 


40%: 


99$: 


NUMBER OF CHARACTERS ENTERED, NOT INCLUDING TRAILING NULL, IN RO 
;(AND Z SET IF NO CHARS ARE ENTERED) 


MOV 


. TYPMSG 


#RETMSG,RO 


#20,R2 
#INSTR,RO 


R1,@DEL 
20$ 


#BITS,R1 
PC,1Ty 


R1, #L 
10$ 


R1,0C 
99% 


R1,(RO)>+ 


#INSTR,RO 
PC 


;FREQUENTLY USED MESSAGE 
;OUTPUT A MESSAGE 
;BUFFER LENGTH 


sMAKE SURE WHOLE FIRST WORD IS NULL 
;NULL TRAILER 
;GET CHAR IN R1, HANDLE XON/XOFF, *¢C 


;IS CHARACTER A DELETE? 
;IF NOT, PROCEED 

;ANY CHARACTERS IN eal 
sNO, GET THE NEXT CHA 

:1S THIS THE FIRST DELETE? 
;NO, DON‘ T PRINT SLASH 


;sREECHO DELETED CHARACTER, DEC POINTER 
sMARK DELETE STATE 
;FIX BUFFER LENGTH POINTER 


sWAS PREVIOUS CHAR A DELETE? 
;IF NO, BRANCH 

;SIGNAL FINISHED 

sEND OF DELETE 


sFORCE CAPITALIZATION 
sECHO CHARACTER 

;LINE FEED - IGNORE 
;CARRIAGE RETURN 


;STORE CHARACTER 
;OTHERWISE, GET NEXT 


;sRETURN NUMBER OF CHARACTERS 


;PUT A MESSAGE IN RO OUT TO TERMINAL, USES RO AND R1 
TYPMSG: JSR 


MOVB 


PC, XCHK 
CRO)+,R1 


SEQ 002% 
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INITIALIZATION CODE 


9135 002642 001405 
914 002644 004767 000010 
915 002650 000771 


916 002652 000207 10$: 


BEG 
JSR 
BR 


RTS 


MN 


SEQ 0024 


Me 
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SEQ 0025 
INITIALIZATION CODE 
He ;SUPPORT I/0 FUNCTIONS 
1 
920 ;OUTPUT A SLASH - re IS UP TO THE CALLER TO SAVE R1 
4: 002654 112701 000057 SLASH: MOVB ‘7,R1 ;SET UP FOR AND FALL INTO TTY ROUTINE 
923 ;OUTPUT THE SINGLE — IN R1 
924 002660 1057357 177564 TTY: TSTB avOUTS 
925 002664 100375 BPL TTY 
926 002666 110137 177566 MOVB R1,8eO0UTBUF 
1 002672 000207 RTS PC 
929 +p FOR XON OR XOFF 
9350 002674 012701 177777 XCHK MOV #-1,R1 ;NO CHARACTER 
931 002700 105737 177560 TSTB @eINSTA ;HAS ANYTHING NEW COME IN? 
932 002704 2 BPL 99$ 
933 002706 115701 177562 MOVB Qa? INBUF ,R1 ;GET NEW CHARACTER 
934 002712 120127 9000025 CMPB R1, #xOFF 
935 002716 1 BNE 10$ 
936 002720 052704 100000 BIS #BIT15,R4 ;MARK XOFF 
937 002724 000763 BR XCHIK ;GET NEXT CHAR 
938 002726 120127 000021 10$: CMPB R1,#XON 
939 002732 001005 BNE 20$ 
940 002734 042704 100000 BIC #BIT15,R4 ;CLEAR XOFF BIT 
po 002740 000755 BR XCHIK 
943 002742 120127 000003 20S: CMPB R1,#CTC ;CHECK FOR CONTROL C 
944 002746 001002 BNE 99$ 
oan 002750 000167 000200 JMP 200 
947 002754 005704 99%: TST R4 ;CHECK FOR CURRENT XOFF 
948 002756 100746 BMI XCHIK ;YES - IGNORE THIS CHARACTER AND GET NEXT 
949 002760 000207 RTS PC 


EAROM BLASTER VIILITY 
IN  TIALIZATION CODE 


Ne 
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; OTHER UTILITIES 
EXIT: sEXIT IS THE SAME THING AS POSITIVE COMPLETION 
YUP: CMP 


NOPE: CMP 


(SP )+,CSP)-+ sRETURN YES FROM MENU 
PC 
(SP )+,CSP)-+ ;RETURN NO FROM MENU 
PC 


;MAKE SURE THE FILE ENTERED IS CORRECT 


;FILE MUST BE ENTERED IN THE FORM DDN 
; DEVICE NAME OF 


:ABCDEF .GHI, WHERE DON: IS THE 
A SUPPORTED DEVICE, ABCDEF IS A STRING OF 6 OR FEWER 


; ALPHANUMERIC CHARACTERS, AND .GHI IS AN OPTIONAL FILE TYPE. IF .GHI 
; IS OMITTED IT WILL DEFAULT TO .SCF 


;FILE NAME IS ALREADY IN INSTR, RETURNS C CLEAR IF GOOD, SET IF NO GOOD 


; VER2ECHKF IL: 
;VER2 JSR 
; VER2 BCS 
; VER2 
; VER2 MOV 
; VER2 MOV 
; VER2 MOV 
; VER2 JSR 
; VER2 TSTB 
; VERO 
; VER2 MOV 
;VER2 BR 
;VER2 
; VER230$ 
VER} BNE 
; VER240$: 
; VER2 JSR 
; VER2 CLRB 
; VER2 TSTB 
; VER?) BEQ 
; VER299$: 
; VER2100$: 


MOV ¢INSTR,RO ; INPUT STRING 

PC ,SETODB ;sRETURN RS POINTING TO GOOD DDB 
100$ 

#DDB + XXNAM,R2 ;COPY FILE NAME INTO DDB 

RO,R3 ;FORMAT FOR OUTPUT TOO 

#6,R1 sMAXIMUM OF 6 CHARACTERS IN NAME 
PC,FIL1 

CRO) 

30$ 

_— ;IF NO EXTENSION, DEFAULT TO .SCF 


ag CRO).%'. ;LAST CHAR MUST BE NULL OR . 


3NO? FAIL. 

MOV #4,R1 sMAX OF 4 CHARS IN EXTENSION 
PC FIL sFIRST CHAR ALREADY CHECKED 

3) sNULL TRAIL JUST TO BE SAFE 
CRO) :F INAL CHAR MUST BE NULL 
100$ 
SEC 
RTS PC 


;sTHIS IS CALLED TO CHECK THE FILE NAME. IT TAKES IN R1 AND RO A POINTER TO THE 
;FILE NAME, IN R1 THE LENGTH OF THE CURRENT FIELD, AND IN R2 THE LOCATION TO 
;COPY THE FILE NAME TO. IT BLANK FILLS (R2) TO THE LENGTH OF R1 FROM THE 
;FIRST NON ALPHANUMERIC CHAR IN (RO), AND FORMATS INSTR CORRECTLY FOR 


; OUTPUT 

; VER2 . ENABL 
;VEROF ILI: 

; VERO BG 
;VER2 CMPB 
;VER2 BGE 
3; VER?) 

3; VER?) CMPB 
3; VERO BGT 


LSB 

CMPB CRO),#'2 

—. ;THIS MUST BE ILLEGAL CHAR, JUST RETURN 
ov’ A 

FIle ;IF B, MUST BE ALPHABETIC 

(RO),#'9 ;IF NOT A LETTER MUST BE A NUMBER 

100$ sMUST BE ILLEGAL 

(RO),#°O 


SEQ 0026 


EAROM BL 4sTER UTILITY 


MACRO 1200 


INITIALIZATION CODE 


004767 000206 
005001 
012702 Q00000G 
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3; VERO BLT 
sVEROF IL2: 
;VER2 =MOVB 
3; VERS SOB 
3; VERO BR 

3; VERO 

3; VER220$: 

3; VERO SOoB 
; VER2100$: 

3; VER2 .DSABL 


;R2 CONTAINS 2 LETTER DEVICE NAME, 
NTING a RO het. ae TO FRONT OF FILE 


3; VER299$; 
3; VER2100$3: 
3; VER2] 
3 VER2DEV: 
3 VER2 . WORD 
3 VERO -ASCII 
3; VER? 
; VER2 ASCII 
3; VERO . WORD 
; VER2 . WORD 
;VER2SCE : 
3; VERO -EVEN 
;WRITE EAROM 
WRTROM: 
JSR 
CLR 
MOV 





SEG 00¢?7 


20s MIGHT BE NULL OR ‘.', SO BLANK PAD (R?P) 
MOVB (RO), CR2)+ ALPHANUMERIC - COPY 

C(RO)+,“RS)- ;COPY IT INTO INSTR TOO 

R1,FIL1L ;NEXT CHAR 

100% P 

MOVB @ ,CR2)- sF ILL WITH BLANKS 
R1,208% 

RTS pe 
LSB 


RETURN DEVICE ye UP FOR DEVICE, AND 


« ,R2 
ODEV.R1 sLOAD POSSIBLE DEVICES 
a CR1)-,R2 3:00 WORD COMPARE FOR 2 LETTER DEVICE 
é 
CRL)>+,CRL) : DONE ? 
10$ :sNO - TRY NEXT DEVICE 
99% 
MOVB (RO)+,R2 ;CHECK UNIT NUMBER AND COLON 
gee s;sLEAVE BINARY UNIT NUMBER IN Ro 
R2,07 
a9 


$ 
(RO)+,@': 
99% 


8006 > xXBUF ,R5 sGO0D DEVICE, BUILD DDB 
OBUF ,CR3S)> 

art an XBUF -2,R5;L0OAD BUFFER SEPERATELY 
(R1),R1 sLOAD THE DDB FRONT POINTER 
MOVB CRi)+,(R3)- 

RS, 308 


6006 ,RS 
R2, XONCRS ) 
100% 


SEC 
RTS PC 


-ASCII /00/ 
DYDDB + XBUF +2 


sLOAD DRIVE NUMBER 


;DYDD8 (SKIP THE BUFFER) 
;07D08 

x/ 
ee oe :01008 


~ASCIZ 7/.,SCF/ 


PC ,BLOCHic 
R 


;sBUILD, LOAD CHECKSUM 
l PAGE 
QUPDATE ,RO 


C4 
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SEQ O08 
INITIALIZATION CODE 
1065 003010 052737 000020 177520 BIS ®B1IT4,3e8CSR ;WRITE ENABLE 
10@6 003016 032704 000004 BIT OBIT2,R4 sSIZE OF ROM 
pH 0035022 001425 BEQ E IGHTK , ;IF SET, ROM IS 2K 
1069 003024 012700 165000 10%. MOV #165000 ,RO sF IRST ADDRESS OF ROM 
1070 003030 110137 177522 MOVB R1,8ePCRLO 
1071 003034 121210 203: CMPB (R2),CRO) 
1072 003036 001403 BEQ 30% 
1073 003040 111210 MOVB CR2),CRO) ;COPY 
1074 003042 004767 000126 JSR PC DELAY 
1075 003046 005202 30$: INC R2 
1076 003050 005720 TST (RO)> ;ROM IS 8X8K - HIGH BYTE IS NONEXISTANT 
1077 003052 030027 000777 BIT RO,@777 ;CHECK FOR END OF PAGE 
1078 003056 001366 20$ ;sREAD NEXT BrTE 
1079 003060 005721 (R1)- sNEXT PAGE CINC BY 2) 
1080 003062 020127 000020 RL, @<PAGES*e2>/4 s;ONLY DO 2K 
00 001356 10$ ;COPY NEXT PAGE 
pee 003070 3 LEAVE 
1084 003072 005003 EIGHTK: Bi) ;ANY CHANGES YET? 
1085 003074 110137 177522 10%: R1,.@e@PCRLO 3;SET ROM PAGE 
1086 003100 012700 165000 #165000 ,RO ;F IRST ADDRESS OF ROM 
1087 003104 122220 70%; CR2)+,CRO)-> 
1088 003106 001401 $ 
1089 003110 005203 R3 3; CHANGES 
1090 003112 105720 30$: CRO)- ;ROM IS 8X8K - HIGH BYTE IS NONEXISTANT 
003114 032700 000057 @37,RO0 ;sWRITE 20 BYTE BLOCKS 
1092 003120 001371 203 
1093 003122 005703 Ra sF INISHED COMPARING A BLOCK - CHANGES? 
1094 003124 001412 50$ NO, GO DO NEXT 
1095 003126 012703 000020 @20,R5 ;sYES - RESET ROM AND RAM POINTERS 
1096 003132 162700 000040 @40,RO 
1097 003136 160302 R3,R2 
1098 003140 112022 403%: CRO)+, CR2)> sCOPY QUICKLY 
1099 003142 105720 CRO)> 
1100 003144 077303 R3,40$ 
tre 003146 004767 000022 PC .DELAY ;WAIT FOR WRITE TO FINISH 
1103 003152 030027 000777 50$: RO,&777 sREACHED END OF PAGE 
04 003156 001352 20$ sREAD NEXT BYTE 
1105 003160 005721 (R1)-> sNEXT PAGE CINC BY 2) 
1106 003162 020127 000100 Ri, @PAGES*e2 
tre 003166 001342 10$ s;COPY NEXT PAGE 
ite 003170 000167 177566 LEAVE: JMP YUP sEXIT wITH CC 
1111 ;DELAY ABOUT 10 MS 
lli2 003174 010046 DELAY: MOV RO, -( SP) 
1113 003176 012700 027340 MOV #12000, ,RO 
1114 003202 077001 SOB RO,. 
1115 003204 012600 MOV (SP)+,RO 
aoe 003206 000207 RTS PC 
1118 003210 012700 000000G BLOCHK: MOV QUPDATE ,RO ;sBUILD THE CHECKSUM 
1119 003214 005002 CLR R2 
1120 003216 012703 000150 MOV #104, ,R5 sNUMBER OF BITES TO Useé 
1121 0038222 112001 10$: MOVB (RO)+,R1 


D4 
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SEQ O0O¢% 
INITIAL IZATION CODE 
L122 003224 060102 ADD R1,Re2 
1123 003226 077305 SOB R3,108 
1124 003 005402 NEG a : 32'S COMP 
1125 005232 110267 000150G MOVB R2, UPDATE +104. sLOAD CHECKSUM 
45 003236 000207 RTS PC ;RETURN RO 
« 
1128 ;READ EAROM 
1129 003240 AROM: 
1130 003240 012737 002770’ 000004 MOV ONOPE , 304 ;SET UP ERROR RETURN 
1131 003246 012702 000000G MOV @IMAGE ,R2 sADDRESS OF ROM IMAGE IN MEMORY 
1132 3252 005001 CLR Ri 3; PAGE 
1133 003254 110137 177522 10$: MOVB R1,a@PCRLO ;SET ROM PAGE 
1134 003260 012700 165000 MOV #165000 ,RO ;FIRST ADDRESS OF ROM 
1135 3264 111062 O00000C 203: MOVB CRO), UPDATE - IMAGE(R2) sMAKE COPY TO UPDATE 
1136 003270 112022 MOVB CRO)+,CR2)> sMAKE IMAGE COPY 
1137 003272 105720 TSTB CRO)- ;ROM IS 8X8K - HIGH BYTE IS NONEXISTAN!Y 
1138 003274 030027 000777 BIT RO, 20777 sREACHED END OF PAGE? 
1139 3300 001571 BNE 203 ;READ NEXT BYTE 
1140 003302 005721 TST (R1)- sNEXT PAGE CINC Br 2) 
1141 3304 020127 000100 CMP R1, @PAGES*¢2 
tf) 003310 001361 BNE 10$ ;COPY NEXT PAGE 
1144 003312 012702 000000G MOV @UPDATE ,R2 ;CHECK FOR 8K ROM 
1145 003316 012701 004000G MOV OUPDATE +4000 ,R1 
1146 003322 012700 002000 MOV 9400072 ,RO0 
1147 003326 022122 350$: CMP CR1)+,CR2)> ;ANY DIFFERENCE MEANS 8K 
1148 003330 001003 BNE 100$ 
1149 003332 077003 sob RO, 30% ;CHECK 2K 
1150 003334 052704 000004 Br 9BIT2],R4 ;MARK AS 2K ROM 
1151 003340 000241 100$; CLC ;GO0D RETURN 
ty 003342 000207 RTS PC : 


rT) 
( 
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INITIALIZATION CODE SEQ 0050 
1155 003344 000000 INISTK: .WORD 
1156 003346 000000 MONADR: .WORD 
1157 003350 INSTR: .BLKB 20 ; INPUT STRING 
1158 ;DUMMY APT COMMUNICATION AREA, -1'S ARE TEST TIME INFORMATION, MADE AS LARGE AS 
1159 ;POSSIBLE 
1160 003370 000000 000000 177777 APTINF: .WORD 0,0,-1,-1,-1.0 
L162 001000 ROMLEN = 1000 
1163 165000 ROMADR = 165000 
1164 ;VER2  .BLKB = -XBUF 
1165 ;VER 


2008 : .BLKB  XXNAM-10. 
Lloo :VER2 .BYTE OO 


EAROM BLASTER UTILITY 
INITIALIZATION CODE 
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NLIST BEX 
;MENUS 
SMENU: 
ASCII 
ASCII 
; VERO .ASCII 
; VER2 ASCII 
; VERO .ASCII 
.ASCII 
ASCII 
ASCII 
ASCII 
ASCIZ 
SHMENU: 
ASCII 
.ASCII 
scil 
ASCII 
ASCII 
ASCII 
ASCII 
ASCIZ 
SEMENU: 
ASCII 
ASCII 
ASCII 
-ASCITI 
ASCIZ 
$HELP: 
-ASCITI 
ASCII 
; VER2 .ASCIT 
; VER2 ASCII 
; VERO ASCII 
.ASCII 
ASCII 
ASCIT 
ASCIZ 
; VER2$ : 
;VER2 -ASCITI 
3; VER2 .ASCIZ 
; VER2OSSURE: 
; VERO .ASCII 
; VER? -ASCII 
;VER2 -ASCIZ 


SEQ 90341 
<C><L><L><L><T><T><T>*'MAIN COMMANDS MENU’ <C><L><L > 
‘DO YOU WANT TO:‘<C><L><L> 
gs Oe eee CREATE SYSTEM CONFIGURATION FILE FROM EAROM ?'<«CoeLoeL» 
re ~... COPY SYSTEM CONFIGURATION FILE TO EAROM ?°'<«CecLrei> 
gg ae UPDATE SYSTEM MEMORIES OR PERIPHERALS DESCRIPTION ?°<C> 
See usetaacade ecard UPDATE SYSTEM HARDWARE DESCRIPTION ?'<Co<el>eL> 
Cg Fe DISPLAY/PRINT SYSTEM DESCRIPTION ?' «CoeL>oeL rel» 
SVOGM sunes we 6o40008 DISPLAY THIS MENU ?'<C><L><L>» 
CEP Ee andiadtananae ds HELP ?'<C><L><L> 


<T>‘E OR <RE TURN> ~- EXIT ?'<C><L> 


<C><L><L><L><L><T><T><T>’' UPDATE HARDWARE MENU’ <C><L><iL>» 
‘DO YOU WANT TO UPDATE:‘<C><L><L>» 

<T>'C CPU DESCRIPTION ?'<C><L><L> 

UNIBUS DESCRIPTION ?’'<C»<L><L>» 

BOOT DEVICE DESCRIPTION ?'<C><L><L>» 

BOOT SWITCH SETTINGS ?'<C><L><L><L>» 

HELP ?'<C><L><L> 

RETURN TO MAIN COMMANDS MENU ?‘<C><L> 


EXIT’ <i>» 
RETURN TO MAIN MENU\ 


WRITE THE ROM FROM THE CURRENT DESCRIPTION AND EXIT 
EXIT WITH NO UPDATE\<C><L> 


<C><L><L><L><L><L>’ 
<C><L>\ DO YOU WANT Bea! 
<C><L>\ it 
<C><L>\ . oe we 
<C><bL>\ Se sias 


<C><L><L><L><L><L><T>o<T><T>'HELP MENU’ <C><L><L> 
‘INFORMATION AVAILABLE: '<C><L><L>» 


<T>'F ...... CREATING A SYSTEM CONFIGURATION FILE FROM EAROM, ‘<«C><«L><L> 
<T>'C ...... COPYING A SYSTEM CONFIGURATION FILE TO EAROM, °‘<C><L><L» 

<T>’'U ...... UPDATING SYSTEM MEMORIES OR PERIPHERALS DESCRIPTION.’ <C «lL ><L» 
7 e"* Ss 5 . UPDATING SYSTEM HARDWARE DESCRIPTION.’ <C><L><L> 

hg eae ee DISPLAYING/PRINTING SYSTEM DESCRIPTION.’ <C><L><«L>» 

<T>o’E EXIT.'<€><L><L>» 


<T>'HIT <RETURN> TO RETURN TO MAIN MENU’ <L ><> 
~ASCII <C><t>'DO yOu WANT TO UPDATE: 

<C><L>’ MM... .». MEMORY 

al a a ee cee PERIPHERAL ‘ 


-ASCII «<C><tL>/ IS THIS ae F YOU WANT ?/ 


<C><L>/ , steebaee wen o° 
> gad N OR <RETURN> .. NO/<C><L> 


1217 


005077 


EAROM BLASTER UTILITY 
INITIALIZATION CODE 


015 
000 
015 


GS 
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CPUTIT: 


CPUDES: . 


UBATIT: 
UBADES: . 


BOTTIT: “A 
BOTDES: . 


SWITIT: 
SWIDES: 


A 


ate” ete HEADER STRINGS 


SEQ 0042 


rn CPU DESCRIPTION/<C><L ><L ><L > 


<C><L>/ IGNORE )POWER YREBOOT MASTER) HALT )} HALT )} LINE >) LINE ) LINE ) MAIN 


<C><L>/)BATT. ) UP > MODE )GRANT )} TRAP >) ON )CLOCK )CLOCK )CLOCK )MEMOR 
<C><L>/)STATUS)MODE >) >} BUS )OPTION)BREAK )STATUS)INTER.)> CSR ) TEST 
<C>o<L>// 

<C><L><L>-t>/ UBA DESCRIPTION/<C><L ><L><L» 

4/ 

<C><L>/)UNIBUS) 18 )UNIBUS)Z 

<C><L>/)} CACHE) BIT )MEMORY)/ 

<C><L>/) > MODE > >/ 

<C><L>// 

> ities BOOT DEVICES DESCRIPTION/<C><L><L><«L>» 
<C><L>/ ENTRY )DEVICE )PHYS. )} LOG. ) CSR >/ 

<C><L>/)> NO. >} >) NO. )}> NO. ) ADDRESS )/ 

<O><L>// 

saa taal SWITCH SETTINGS /<C><L><L><L>» 

/ 

<C><L>/)SWI. DEVICE) LOG. >/ 

<C><L>/) NO. } > NO. )/ 

<C><L>// 
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SEQ 005% 

INITIALIZATION CODE 

1243 ; INPUT PROMPTS 

1244 006150 015 Ol2 125 VUBAPO: .ASCIZ <C><lL>\UNIBUS CACHE (DISABLE/ENABLE) [0-1] «\ 

1245 006211 015 Ol2 061 VBAP1: .ASCIZ <C><iL>\18 BIT MODE (OISABLE/ENABLE) [0-1] *\ 

et 006272 015 012 125 UBAP2: .ASCIZ <C><L>\UNIBUS MEMORY TEST (CDISABLE/ENABLE) [0-1] =. 

1248 006355 015 O12 111 CPUPO: .ASCIZ <C><L>\IGNORE BATTERY STATUS (DISABLE/ENABLE) (O-1}) © 

i249 006451 015 Ole 120 CPUP1: .ASCIZ <C><L>\POWER UP MODE C(OIALOGUE/TURNKET/ODT/TRAP) [0-3] =. 

1250 006547 015 O12 l22 CPUP2: .ASCIZ <C><lL>\REBOOT MODE CDIALOGUE/TURNKEY/ODT/TRAP) [0-3] =\ 

1251 006645 015 Ole 115 CPUPS: .ASCIZ <C><L>\MASTERSHIP GRANT COUNT (0/1/2/3/4/5/6/7) [O-7}) = 

1252 006745 015 Ole 110 CPUP4: .ASCIZ <C><L>\HALT/TRAP OPTION CHALT/TRAP ) (O-1] #\ 

1253 007041 015 012 110 CPUPS: .ASCIZ <C><L>\HALT ON BREAK (OISABLE /ENABLE ) (O-1]) =) 

1254 007137 015 Ole 114 CPuP6: .ASCIZ <C><L>\LINE CLOCK CSR (ENABLE /OISABLE ) (O-1) #\ 

1255 007235 015 Ole 114 CPuP7: .ASCIZ <C><L>\LINE CLOCK INTERRUPT (OISABLE “ENABLE ) (O-1] =: 

1256 007353 015 Ole 114 CPUPS8: .ASCIZ <C><L>\LINE CLOCK SOURCE (BE VENT /SOHZ /60HZ /800HZ ) (O-$] =. 

ed 007431 015 Ole 115 CPuUP9: .ASCIZ <C><L>\MAIN MEMORY TEST CENABLE /DISABLE ) fO-1) #\ 

1259 007527 015 Ol2 104 BOTPO: .ASCIZ <C><L>\DEVICE NUMBER TO CHANGE (1 TO 9) =\ 

1260 007601 015 Ole 124 BOTP1: .ASCIZ <C><L>\TWO LETTER DEVICE MNEMONIC =\ 

1261 007654 O15 O12 120 BOTP2: .ASCIZ <C><L>\PHYSICAL UNIT NUMBER (O TO 377) =\ 

1262 007727 015 012 114 BOTPS: .ASCIZ <C><L>\LOGICAL UNIT NUMBER C(O TG 377) =\ 

1263 010002 015 Ol2 103 BOTP4: .ASCIZ <C><L>\CSR ADDRESS CO TO 177777) =\ 


64 
1265 010055 O15 O12 123 SWIPO: .ASCIZ <C><L>\SWITCH SETTING TO CHANGE (1 TO 6) =\ 
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SEQ 0034 
INITIALIZATION CODE 
go ;HELP MESSAGE STRINGS 
1269 010130 015 Ole 040 $MSGi: .ASCII <C><t>’ ee. . 
1270 010136 015 Ol2 O11 -ASCII <C><L><T>‘USE TO :' 
1271 010151 015 Ole Ole -ASCII <C><L><L><T>' - UPDATES THE SYSTEM CONFIGURATION EAROM WITH THE ° 
1272 010242 015 Ole 011 -ASCIT <C><L><T>’ CONTENTS OF A SYSTEM CONFIGURATION FILE (.SCF) .' 
1273 010332 015 012 Ole .ASCIZ <C><L><L><T>'FILE NAME FORMAT: DEVICE:F ILENAME’ <C><L> 
1274 010403 015 Ole 040 $MSG2: .ASCII <C><L>’ Cc’ 
1275 010411 015 Ole O11 -ASCII <C><L><T>'USE TO :' 
1276 010424 015 Ole Ole -ASCII <C><L><L><T>' - CREATES A SYSTEM CONFIGURATION FILE (. pe With THE ° 
1277 010520 015 Ole O11 .ASCII <C><L><T>’ CONTENTS OF THE SYSTEM CONFIGURATION EAROM, ‘ 
1278 010603 015 O12 Ole -ASCIZ <C><L><L><T>‘FILE NAME FORMAT: DEVICE:FILENAME’ ~ ge 
1279 010654 015 012 040 $MSG35: .ASCII <C><t>' U' 
1280 010662 015 Ole 011 -ASCII <C><L><T>‘USE TO :' 
1281 010675 015 O12 Ole -ASCII <C><L><L><T>' - ADD MEMORY/PERIPHERAL DESCRIPTOR TO EAROM, ’ 
1282 010760 015 Ole O11 ASCII <C><L><T>’ - DELETE MEMORY/PERIPHERAL DESCRIPTOR FROM EAROM. ' 
1283 011047 015 012 O11 -ASCIT <C><L><T>' - MODIFY MEMORY/PERIPHERAL DESCRIPTOR ON EAROM, ' 
1264 011154 015 O12 O11 ASCII <C><L><T>’' - DISPLAY MEMORY/PERIPHERAL DESCRIPTORS ON EAROM, 
1285 011225 015 0l2 Ol2 ~-ASCIZ <C><L><L><T>‘'FOR DETAILED INFORMATION REFER TO UTILITY USERS GUIDE.'<C><L>» 
1286 011320 015 Ole 040 $MSG4: .ASCII <C><L>' - 
1287 0113526 015 O12 011 -ASCII <C><L><T>‘USE TO :' 
1268 011541 015 O12 Ole -ASCII <C><L><L><T>'C - MODIFY CPU DESCRIPTOR ON EAROM., ’ 
1289 011412 015 012 011 .ASCITI <C><L><T>’U - MODIFY UNIBUS th ON EAROM. ' 
1290 011465 015 O12 011 -ASCIT <C><L><T>‘B - MODIFY BOOT DEVICES ON EAROM. 
1291 011533 015 012 O11 ASCII <C><L><T>’S - MODIFY BOOT SWITCH MEANINGS ON EAROM, ' 
1292 011611 015 O12 Ole -ASCIZ <C><L><L><T>‘'FOR DETAILED INFORMATION REFER TO UTILITY USERS GUIDE.’ <C><L>» 
1293 011706 015 Ol2 040 $MSGS: .ASCII <C><L>’ D’ 
1294 011714 015 O12 O11 -ASCII <C><lL><T>'USE TO ;:’ 
ons 011727 O15 012 012 -ASCIZ <C><L><L><T>’ - DISPLAY THE SYSTEM DESCRIPTION ON THE CONSOLE/LINEPRINTER. 
<C><L» 
1296 012035 O15 Ole O40 $MSG6: .ASCII <C><L>’ e* 
1297 012043 015 Ole O11 -ASCII <C><L><T>'USE TO :' 
1298 012056 015 Ole O11 -ASCII <C><t><T>' - SAVE NEW SELECTIONS ON EAROM AND RETURN TO XXDP+ MONITOR.’ 
4 es 012157 015 O12 O11 i <C><L><T>’' - RETURN TO XXDP+ MONITOR WITHOUT SAVING NEW SELECTIONS.'<C><L> 
.CV 


JS 
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SEQ 0055 

INITIALIZATION CODE 

1305 ;OTHER ASCII STRINGS 

1304 012260 015 Ole 113 $HELLO: .ASCIZ <C><L>‘KDJ11-B aa MAINTENANCE UTILITY V1.0'<C><L>» 

1305 012333 015 Oie 104 $TYASK: .ASCIZ <C><t>‘'DO YOU WANT A HARDCOPY LISTING ( N/Y CRer ) ? ' 

1306 012414 015 Ole 116 ILLCOM: .ASCII <C><L>/NOT A VALID CHOICE, / 

1307 012442 015 Ol2 124 RETMSG: .ASCIZ <C><L>/TYPE <RETURN> TO RETURN TO MENU / 

1308 012505 015 Ol2 111 BADFIL: .ASCIZ <C><L>/ILLEGAL FILE DESCRIPTION/ 

1309 012540 015 Ole O12 GETFIL: .ASCIZ <C><iL><L><L>/ENTER DEVICE AND FILE NAME DON: XXXXxXx OR <RETURN> TO CANCEL: / 

1310 012642 015 Ole 103 TOOLNG: .ASCIZ <C><L>/COMMAND TOO LONG, PLEASE REENTER: / 

1311 012707 015 Ole 105 PROMPT: .ASCIZ <C><L>/ENTER SINGLE CHARACTER COMMAND FOLLOWED Br <RETURN>: / 

1312 01277 015 Ole 105 NOROM: .ASCIZ <C><L>/EAROM NOT PRESENT IN SYSTEM/<C><L> 

1313 0135037 015 O12 111 ERRIN: .ASCIZ <C><L>/INCORRECT INPUT/ 

1314 013061 015 012 106 NOTYET: .ASCIZ <C><L>/FUNCTION NOT YET IMPLEMENTED/ 

13515 013120 015 Ole 007 RESTOR: .ASCIZ <C><L><BELL>/WRITE FAILURE, RESTORING ORIGINAL ROM/ 

1316 013171 174 040 LBLS: Ast 7) 7 

1317 013173 040 040 000 BL4: .. 9 i ae 

1318 0135176 174 VCRLF: .ASCII /)}/ 

1319 013177 015 012 000 CRLF: -ASCIZ <C><L>// 

1320 013202 015 Ol2 Ole READ: -ASCIZ <C><L><L>/READ / 

1321 013215 OLS Ol2 Ol2 WRITE: .ASCIZ <C><L><L>/WRITE / 

1322 000001 . END 


EAROM BLASTER UTILITY 
TABLE 


SYMBOL 
AC -s 
INF 


“4 
ms» e888 8 8 8 BS & 8 SG 


BOTTIT 


. ABS. 


013225 
ERRORS DETECTED: 0 


177770 
003370R 


007041R 
007157R 


000 
001 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY : 


ELAPSED 


TIME: 


20060 
00:00 
84 ,84/-SP=BLMAC ,DDB 


MACRO M1200 
CPUP7 007235R 
CPUPS 007335R 
CPUPS 007431R 
CPUTIT 005077R 
CRLF 013177R 
crc a 
DDISP = 177570 
DECTAB 001760R 
L = 000177 
DELAY 003174R 
DESCRP 001374R 
DLT = 177760 
DSWR =- 177570 
EIGHTK 003072R 
EMENU 5 
ERRIN 013037R 
ERROR 000346R 
ERRORI 00034 
ETR = 177764 
EXIT 002762R 
GETCOM 002450R 
GETFIL 012540R 
HAROM 000440R 
HELPM 0004 74R 
HMSG1 000600R 
HMSG2 000604R 
HMSG35 000610R 
HMSG4 000614R 
HMSGS 000620R 
HMSG6 000624R 
ILLCOM 012414R 
IMAGE = seee004 GX 
INBUF = 177562 
INI = 177774 
INISTK 003344R 
INMAP 000724R 
INSTA = 177560 
INSTR 003350R 
ITYPO 002144R 
ITYP10 00235e2R 
ITyP2 002212R 
ITYP4 002314R 


WORDS ( 
:24 
DEF ,B4,END 


9421 WORDS ( 37 PAGES) 
77 PAGES) 
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002334R 
0000 


000356R 


013120R 
002444R 


$SWR = 
$TYASK 


177777 
177722 


O12555R 


SEQ 0054 


.NLIST 
—, PACKAGE REVISION HISTORY 
;RE VISION DATE CHANGE 
i -— *— © © i ie — ie — ee le ile le le ite ie il le ll NN Ne ME nr nm nn OOO rr rrr re er ee 
; 1.0 25 -MAY -78 INITIAL ISSUE 
s 3b. 31-MAY -78 DELETE $B8KREAD AND $NXTBLK MACRO DEFINITIONS 
s i.e 6 - JUN - 78 ADDED $CHKSUM MACRO 
s 1.3 8-JUL -78 DELETE .PTRRD, .BMOVE, .SCHAIN, AND .ABORT MACRO DEFINITIONS 
; ADD .SETERR AND .ERROR MACRO DEFINITIONS 
s 2.0 8 - JUL - 78 FIELD TEST VERSION 
§ wea 12-JUL-78 ADD SABORT DEFINITION; REMOVE $NXTBLK DEFINITION 
8 ere 22 -AUG -78 ADD MACFO DEFINITIONS FOR ROUTINES MOVED FROM DRIVERS TO ORVCOM 
: 3.0 20 - JUL -80 MAKE CHANGES MARKED BY ;MACOO1 
; 28-OCT-80 REMOVED $REMAIN MACRO ;MACOO02 
; 31-OCT-80 ADDED .FRCTYP AND .CHKCC ;RWBOO1 
; CHANGED .ERROR TO USE RO ;RWBOO1 
; removed old EMT macros for blast program 3; rwy 


:fake the needed EMT calls 


rrrFFeeFfteT nf «rt *# # fF w= @fFereenewveee#s#e#es# = # #2 * = 


;this macro recovers from errors during I/0 
sthis is supposed to pass errors my way using the calls already existing 


; in the drivers 
-macro .fretyp arg 


Mov arg,rd 
sec 
endm 
macro .upknam 
jer pc,upknam 
endm 


SEG 0023/7 


; THE *# O11 OWING MACROS GENERATE TRAP CALLS 


TESCHHSSHHEEESSSHSESSSESESSESESEESESEESEESEEESEEEEESAESESSEE 


-MACRO $TYPRAD ARGI 
.NARG NARGS 
. IF NE ,NARGS 
-NTYPE NTYPE,ARG1L 
m NE ,NTYPE 
MOV ARG1,RO 
-ENOC 
»ENDC 
TRAP 1 
. ENDM $TYPRAD 
MACRO sBCDCV ARG1 
. NARG NARGS 
IF NE ,NARGS 
-NTYPE NTYPE,ARG1L 
iF NE ,NTYPE 
MOV ARG1,RO 
»ENOC 
.ENOC 
TRAP 2 
. ENDM sBCOCV 
-MACRO &sDATUPK ARG1 
. NARG NARGS 
m 4 NE ,NARGS 
-NTYPE WNTYPE,ARGI 
-_ »=NTYPE 
MOV ARG1,RO 
-ENOC 
-ENDC 
TRAP 3 
. ENOM $DATUPK 
-MACRO SBYTFIL 
TRAP 4 
-ENOM sBYTFIL 
-MACRO $sCLRBMP 
TRAP 5 
-ENDM $CLRBMP 
-MACRO sBKREAD 
TRAP 6 
. ENOM sBKREAD 
-MACRO $sRODDAT 
TRAP 7 
.ENDM $RODAT 


MS 


St * 0) 44 


. MACRO 


$WRIDAT 
TR 


AP 10 
.ENDM $wRIDAT 
MACRO ‘S$BLKWRT 

TRAP i11 
-ENOM $BLKWRT 
MACRO ¢$WRILC 

TRAP 12 
-ENDM ¢6WRILC 
MACRO ‘sCLRBUF 

TRAP 13 
. ENDM $CLRBUF 
MACRO $PAKNAM 

TRAP 14 
. ENDOM $PAIKNAM 
-MACRO $TYPNAM 

TRAP 15 
.ENOM $TYPNAM 
-MACRO ‘$MBUFAD 

AP 16 
. ENDM sMBUF AD 
-MACRO $CHIKSUM 

TRAP 17 
.ENDM $CHIKSUM 
»MACRO ‘sBMOVE 

TRAP 20 
. ENDM sBMOVE 
-MACRO $ABORT ARG 
. IF NB ARG 

. TYPMSG 
o ENDC 

TRAP 21 
.ENDM sABORT 


.MACRO SOTDEL 
TRAP 
~ENOM SOTDEL 


ARG 


NS 


SEQ 0059 


sBOoOT 


$C. SMAP 
TRAP 
sCLSMAP 
$wRTMAP 
TRAP 
$wRTMAP 
sSTUFDS 
TRAP 
sSTUFDS 
sCLOSE 
TRAP 
sCLOSE 
$DAL SBK 
TRAP 
$0AL SBK 
$DAL’.NK 
TRAP 
$DALLNK 
SDALCTG 
TRAP 
s$DALCTG 
sSTMAPS 


TRAP 
SSTMAPS 


34 


35 


36 


37 


54 


SEG 


0040) 


gee 
sD08 OFFSETS 


xBUF 
xWwCTR 
XWILOD 
XFLCNT 
xSVMAP 
XSVCNT 
xSVBLK 
xSVNAM 
XSVEXT 
XSVDAT 


amfid 
by to lk 


TO DDB MONITOR BUFFER 











TO FILE COUNT 


WFD BLOCK POINTERS 


TO FIRST Ap ot 


TO SERVICE ROUTINE (ORIVER) 
TO SERVICE ROUTINE (ORIVER) 
TO oY INE 


o-1 SRESULT STATUS 
INDEX 10 COMMAND REGISTER 








D BLOCK COUNT 
TO 1ST OIR BLOCK POINTER 
TO LAST BLOCK @ — 
TO ASCII NAME IN DDB 





:4J0001 
;MJD001 


3;MJD001 
sMJD001 
sMJDO001 


; 
; 
; venereal purpose equates 
; 
; 


T . 
BELL . 
L = 
Cc = 
U! 2 
crc , 
XON 2 
xOF F . 
del . 
BCSR * 
PCRLOo . 
BLKID a 
DOSWR 2 
DOISP * 
$SWR = 

pages . 32 

bi to 2 1 

bitl . 2 

bit2 + 4 

bits . 10 

bi t4 . 20 

bitd = 40 

bi té6 . 100 

bit10 . 2000 

bitle = 10000 

bitls . 100000 

ertcsr = 0 

insta . 177560 

i Nbuf . insta+2 

outsta - 177564 

Outbuf = outsta+2 


D4 


;teb cheracter 

;bell cheracter 

s;line feed character 
;carriage return character 
sverticel dash character 
;control-c 

s;output on 

;output off 


; rubout 

sBoot/Diagnostic Status register 
3P Control register 

;UFD block is memory/per ipheral 
:Hardware switch register 
sHardware display register 
:Flags for APT control 


;snumber of pages in EEROM 





32??? dummy printer address 


